program func8;
uses crt;
var
a, b, c, d, r, S1, S2, S: real;
Function f(x, y, z: real): real;
var
p: real;
begin
p := (x + y + z) / 2;
f := Sqrt(p * (p - x) * (p - y) * (p - z));
end;
begin
Writeln('введите 4 стороны и диагональ четырехугольника');
readln(a, b, c, d, r);
S1 := f(a, b, r);
S2 := f(r, c, d);
S := S1 + S2;
Writeln(S:4:2);
readln;
end.